home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / gfx / fract / Numy_II.lha / Numy_II.LST < prev    next >
Encoding:
File List  |  1995-04-13  |  549 b   |  29 lines
  1. REM An interesting fractal from Scientific American magazine
  2. REM Converted to Amiga GFA-BASIC V3.5 by Dalibor S. Kezele !
  3. OPENS 1,0,0,640,256,4,32768
  4. OPENW #1,0,0,640,256,1,4096
  5. xm=640/2
  6. ym=256/2
  7. INPUT "Enter three numbers :",i1%,i2%,i3%
  8. x1=0
  9. y1=0
  10. i1%=i1%+1
  11. i2%=i2%+1
  12. CLS
  13. TITLEW #1,"Numy II - Press <ESC> to quit!"
  14. REPEAT
  15.   FOR c%=1 TO 15
  16.     COLOR c%
  17.     FOR f%=1 TO 200
  18.       xx=y1-SQR(ABS(i2%*x1-i3%))*SGN(x1)
  19.       yy=i1%-x1
  20.       x1=xx
  21.       y1=yy
  22.       PLOT x1*10+xm,y1*10+ym
  23.     NEXT f%
  24.   NEXT c%
  25. UNTIL INKEY$=CHR$(27)
  26. CLOSEW #1
  27. CLOSES 1
  28. END
  29.